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EDTSCALLFIO - calls fileio routine 18-se =1984 23:42:5 VAX-11 Bliss-32 V4.0-74 Page 1. 
122808= 1382 $3:53:78 TEC SUMGMASTERSCEOT SRCTCALLF 10.0151 ° (1) 
01 0 RTITLE "EDTSCALLFIO = calls fileio routine’ 
8 MODULE EDTSCALLFIO ( ' Calls file I/0 routine for EDT 
7 ie = 'v04-000' ' File: CALLFIO.8LI Edit: JBS1008 
= 
5 BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!® ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
; N SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
ae 
® 
® 
® 
® 
® 
* 
® 
® 
® 
ie TRANSFERRED. . 
® 
* 
® 
® 
® 
® 
® 
® 
® 
* 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* oeponat ing NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
7* . 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


it 
See RARE RRA AA AREER EAE E AAA EEAERERAEAARARAAREKEREREES 
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' ABSTRACT: 
This routine calls the basic file i/o routine used by EDT. 
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FACILITY: EDT -- The DEC Standard Editor 
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i 
' 
3 
' 
' 
1 
0038 i ENVIRONMENT: Runs on Vax/Vms 
9040 i AUTHOR: Shelly T. Solomon, CREATION DATE: 03-Jan-1982 
0048 i MODIFIED BY: 
044 1! 1-001 - Original. STS 03-Jan-1982 
045 ! 1- - Add fcode to the enabled parameters. STS oper ebn 1984 
Bog ! 1-003 - Signal if bad status returned on VMS. STS 09-Mar-1982 
04 ! 1-003 = Deallocate everyshy q you can unwinding. STS 09-Mar-1982 
048 ! 1-004 = Clear EDTS$G_IOFI_NFND before calling file 1/0. JBS ge mer-12 2 
0049 ! j- 36 - Take out reference to edt$$a_file_rout on 11's. STS 02-Jun-19 
0050 ! 1-28 - Don't try to deallocate strings which may not_be there. JBS 22-Feb-1983 
0034 1-008 - Improve the appearance of the Listing. JBS 13-Jun-1983 | 
005 | 
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FIO = calls fileio routin 1Sese -1984 23:42:5 VAX-11 Bliss-32 V4.0-74 Pa 3 

FIO = Calls EDT tile routine 12-80 8-198e 93:53:38 SEK SUMGHARTERSLEDT SACTCALLF10.8L151 - (3) 

ZSBITL ‘EDTSCALLFIO = Calls EDT file routine’ 

GLOBAL ROUTINE EDTSSCALLFIO ( ' Calls EDT A hy routine 
ode 


' 

ECODE, ' Function c¢ 

STRM, Stream identification 
' 


EBTEEALLFIO 


Pata 
poe 
-—— 


SeLE 


ooooo -- 


=OOONAUS WD 30 OONOAU EWP $0 OONOA UF WD OOONOAUSWN (OOOVNOUFSWR) ODOT Me 


! File name or record descriptor , 
! Default name or record header descriptor 


FUNCTIONAL DESCRIPTION: 


This routine sets up a condition handler and then calls the designated 
file 1/0 routine. 


FORMAL PARAMETERS: 
filecode = function code defining type of 1/0 operation to be performed 
filestream = stream identifier 
file_rec = address of string descriptor, i.e. the file name or place to store 
record read or place to fetch record to be written 
file_rhb = address of string descriptor for any record prefixes 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
EDT$$G_IOF 1 NFND 1 = file not found on open 


COMPLETION STATUS: 


VOONAVESWN —“OODONOUS WN oO 


WANA A ATP PO PUNINPONINYNINYNY 2 2 OS OO 


Uw 


Same as the file 1/0 routine | 
SIDE EFFECTS: | 
NONE | 

| 


BEGIN 


ZIF ZBLISS (BLISS32) 
THEN 


EXTERNAL ROUTINE 
STRSFREE1_DX | 
EDT$$SC_RESET | 
EDT$$DEA_ALLHEAP, | 
EDTSSF IORNDLR; 


ext 
EDTSSA_ 


EDTS$$G 
EDTS$$G 
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OUT, ! address of routine for file 1/0 
7 ! file routine environment word 
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EDTSCALLFIO EDTSCALLFIO = calls fileio routine 1se $1984 23:42:5 VAX-11 Bliss-32 V4.0-74 Page 4. 
fb 008 EDTSCALLFIO = Calls EDT file routine 12-808- 138 $3:33:7 DISKSVMSMASTERSCEDT SRCICALLFI0.BL1:1 ° (3). 
; 163 U 166 ZELSE : 
; «164 U te F 
> 165 U 0764 EXTERNAL ROUTINE . 
3 196 U 0765 EDTSFILEIO; 3 
3; U 076 | $ 
; 168 76 ZF I $ 
3 198 76 3 
; 170 zg EXTERNA $ 
: 17) B78 EDTS$G_1IOF I_NFND; ! 1 = file not found (set by handler) : 
3 17 1464 MESSAGES ((PASSTATUS)); 3 
s 176 Bre $ 
; 75 774 LOCAL $ 
; 176 0775 STATUS; ; 
; ie 0776 3 
; «4178 Ll 0777 ZIF XBLISS (BLISS32) 3 
3; #179 0778 ZTHEN 3 
; 180 0779 F 
; «(181 0780 LOCAL : 
3 Ise 0781 2 FCODE : VOLATILE $ 
: 18 O78¢ STREAM : VOLATILE; | ; 
; 184 078 : 
: 185 0784 ENABLE $ 
3 136 14 $4 2 EDTSSFIOHNDLR (STREAM, FCODE); ! on VAX enable a handler for error processing : 
; «4188 0787 STREAM = .FILESTRM; : 
; «6189 0788 FCODE = .FILECODE; 3 
; 190 0789 aFI F 
: «6191 0790 2 3 
3 136 0791 2 EDTS$$G_IOFI_NFND = 0; F 
: #19 1454 @ i+ F 
3; 194 0793 2! The following call is a general routine call using the linkage defined : 
3 «6195 0794 2! as iocall. -e. what is happening is that a call is being made to the 
; «196 0795 2 ! routine whose address is contained in the variable EDTSSA_FILE_ROUT. 
s Wor 0796 2! The contents of the variable EDT$$G_FILE ENV is first put into register 1 
3; «198 0797 2! for the call. (This is done because of the requirements of callable EDT 
; 199 0798 2 ! where the user can specify his own file routine and some high-level 
; 200 0799 § ! Languages require an environment word to be passed in register 0.) 

1; 201 0800 ! The remaining four parameters in the List are the actual parameters 

: 202 0801 ! passed to the file 1/0 routine. 
> 203 080 te 
: 204 080 
; 205 L 0804 ZIF ZBLISS (BLISS32) 
; $96 bbpe XTHEN 
3 4 Bape STATUS = 1OCALL (.EDTSSA_FILE_ROUT, .EDTSSG_FILE_ENV, ZREF (.FILECODE), ZREF (.FILESTRM), .FILE_REC, 
3 $09 U 0808 ZELSE od 
3 $19 U ttt ; STATUS = EDTSFILEIO (ZREF (.FILECODE), ZREF (.FILESTRM), .FILE_REC, .FILE_RHB); 
; 313 0811 
3 $i L bai§ ZIF ZBLISS (BL1ISS32) ; 
7 \ Baz ZTHEN ! on VMS signal any bad status returned 
: 1 Fi IF ( NOT .STATUS) 
: StB 0819 _— 
: 219 0818 IF ((, STATUS NEQ RMS$_EOF) OR (.FILECODE NEQ EDTSK_GET)) 
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-EDTSCODE + 0000 


168 bytes, Routine Base: 


3; Routine Size: 


!<BLF /PAGE> 


cant 


Name 
_EDTSCODE 


File 


-8255S$DUA28: 
~$255$DUA28: 
~$255$DUA28: 
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Stee: 

un Time 
pth tees 
Lines/CPU Min: 


0 routine 
ile routine 


PSECT SUMMARY 


UESEc1R 18831 


! End of module CALLFIO 


VAX-11 Bliss-32 V4.0 


-EXTRN LIBSSTOP 


Bytes Attributes 
168 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ee nee Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
EDT.SRCJEDT.L32;1 377 2 0 40 00:00.2 
EDT.SRCIJPSECTS.L32;1 1 50 7 00:00.1 
SYSLIBISTARLET.L32;1 9776 1 0 581 00:04.1 


COMMAND QUALIFIERS 


168 code + 0 data bytes 


6 
Lexemes/CPU-Min: $184 


Used: 


fometlatian Complete 


90 pages 
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